Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Lbl 0
AxesOn
ClrText
0A~Z
Locate 5,1,"JEU NIAISEUX"
Locate 10,2,"-"
Locate 1,3,"0Quitter"
Locate 1,4,"1Jouer"
Locate 1,5,"2Voir les scores "
While X71 And X72
GetkeyX
X=62Goto S
WhileEnd
ClrText
X=71Stop
1N
Lbl 1
0V
ClrText
ViewWindow 0,126,0,0,62,0
Text 3,3,"NIVEAU"
Text 3,31,N
1A
Int 30Ran#+15B
Int (124(N+2)W
62-WO
Int 42Ran#S
Green Horizontal 62
Int ORan#C
Int ORan#D
Int ORan#E
Int ORan#F
Int ORan#G
Int ORan#H
Green F-Line 18,0,18,C
Green F-Line 18,C+W,18,62
Green F-Line 36,0,36,D
Green F-Line 36,D+W,36,62
Green F-Line 54,0,54,E
Green F-Line 54,E+W,54,62
Green F-Line 72,0,72,F
Green F-Line 72,F+W,72,62
Green F-Line 90,0,90,G
Green F-Line 90,G+W,90,62
Green F-Line 108,0,108,H
Green F-Line 108,H+W,108,62
Green F-Line 126,0,126,S
Green F-Line 126,S+20,126,62
PlotOn A,B
Lbl Z
GetkeyZ
Isz A
Z=0V-.32V
Z0V+.32V
V+BB
F-Line A,B,A-2,B
U+1+Abs VU
B0 Or B62Goto P
If Frac (A18)=0
Then A=18BC Or BC+WGoto P
A=36BD Or BD+WGoto P
A=54BE Or BE+WGoto P
A=72BF Or BF+WGoto P
A=90BG Or BG+WGoto P
A=108BH Or BH+WGoto P
A=126B>SB<S+20Goto N
A=126Goto P
IfEnd
Goto Z
Lbl N
Orange Text 10,75,"SCORE"
Isz N
50+UU
Orange Text 10,100,Int U
Goto 1
Lbl P
Orange PlotOn A,B
A7575A
Int UU
Orange Text 25,A,"Boum !!!"
Orange Text 35,A,"Score:"
Orange Text 35,A+25,U
1L
U<Mat X[5,1] And U>Mat X[1,2]Goto 0
ClrList
MatList(Mat X,1List 1
MatList(Mat X,2List 2
If UMat X[5,1]
Then UList 1[5
SortD(List 1
ListMat(List 1,List 2)Mat X
ClrText
For 1X To 5
Mat X[X,1]=UBreak
Next
If X=1
Then "Record battu !!!!! Premiere place !!!!"
Else "Nouveau record !!"
" "
Locate 1,2,X
Locate 2,2,"e place !"
IfEnd
Else UList 2[1
SortD(List 2
ListMat(List 1,List 2)Mat X
ClrText
For 1X To 5
Mat X[6-X,2]=UBreak
Next
If X=1
Then "Tu as reussi a battrele score le plus nul.Felicitations !!!!!"
Else "Bravo !"
"Tu as fait le e"
Locate 15,2,X
"score le plus nul !!"
IfEnd
IfEnd
Lbl S
ClrText
"Meilleurs scores"
"1"
"2"
"3"
"4"
"5"
For 1X To 5
Locate 4,1+X,Mat X[X,1]
Next
ClrText
"Scores les plus nuls"
"1"
"2"
"3"
"4"
"5"
For 1X To 5
Locate 4,X+1,Mat X[6-X,2]
Next
Goto 0